﻿Imports System.Data.Entity


Public Class frmDangNhap

    Private Sub btnThoat_Click(sender As System.Object, e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub frmDangNhap_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnDangNhap_Click(sender As System.Object, e As System.EventArgs) Handles btnDangNhap.Click

        btnDangNhap.Enabled = False

        Using db = New QlqaContext
            Dim tv = db.ThanhViens.FirstOrDefault(Function(x) x.Ten = txtUserName.Text And x.MatKhau = txtPassword.Text)
            If Not IsNothing(tv) Then
                MySession.ThanhVien = tv
                Me.Close()
            Else

                If db.ThanhViens.Count() = 0 Then
                    tv = New ThanhVien
                    tv.Ten = "admin"
                    tv.TenThat = "Trung"
                    tv.MatKhau = "123456"
                    db.ThanhViens.Add(tv)
                    db.SaveChanges()
                    MySession.ThanhVien = tv
                    Me.Close()
                Else
                    MessageBox.Show("Đăng nhập không thành công", "Thông báo")
                    btnDangNhap.Enabled = True
                End If
              

            End If
        End Using
        Try
          

        Catch ex As Exception
            Dim dr As DialogResult = MessageBox.Show("Có một số thay đối ở Database ban có muốn cập nhật lại Database không?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            ' Nếu người dùng lựa chọn đồng ý
            If dr = Windows.Forms.DialogResult.Yes Then
                Database.SetInitializer(New MigrateDatabaseToLatestVersion(Of QlqaContext, QLQA.Migrations.Configuration)())
                btnDangNhap.Enabled = True
            End If

        End Try

    End Sub
End Class